home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / CLISRV / BOOKSALE / SERVER / BOOK_SVR.BAS next >
Encoding:
BASIC Source File  |  1996-10-29  |  936 b   |  40 lines
  1. Attribute VB_Name = "ServerMain"
  2. Option Explicit
  3.  
  4. Enum BOOKMODEL
  5.   gintSCHOOL_BOOK_MODEL
  6.   gintPOP_NOVEL_MODEL
  7.   gintCELEBRITY_BIOGRAPHY_MODEL
  8. End Enum
  9.  
  10. Global Const gRoyalty = 0.15
  11. Global gintInstanceCount As Integer
  12.  
  13. Global gDB As Database
  14. Global gWkspc As Workspace
  15. Global gDBName As String
  16.  
  17. Global gintSalesModel As Integer
  18. Global glngUnitsPerMonth As Long
  19. Global gcurCostPerUnit As Currency
  20. Global gcurPromoCost As Currency
  21. Global gsngIncomeTaxRate As Single
  22. Global gintSalesPeriod As Integer
  23. Global gbolIsDiscount As Boolean
  24. Global gintPromoStart As Integer
  25. Global gintPromoDiscPeriod As Integer
  26. Global gsngPromoDiscRate As Single
  27. Global gintPubProfit As Integer
  28. Global gcurAdvertisingCost As Currency
  29.  
  30. Sub Main()
  31.  
  32. End Sub
  33.  
  34. Sub ServerMsg(rstrMessage As String, rintButtons As Integer, rstrTitle As String)
  35.   #If gbDEBUG Then
  36.     MsgBox rstrMessage, rintButtons, rstrTitle
  37.   #End If
  38. End Sub
  39.  
  40.